Faid's Blog™: Folder Lock

Showing posts with label Folder Lock. Show all posts

Wednesday, December 12, 2012

VB6 Folder Locker

I've create a more powerfull Folder Locker, now i made it from VB6.

Download Here! MediaFire Password : f4id's-bl0g

Thursday, October 18, 2012

Membuat Folder Locker dari HTA (HTML Application)

Sebelumnya ane pernah membahas soal folder locker dari VBS, nahh, sekarang ane buat lebih "powerfull" dengan script HTA (HTML Application), caranya mudah, cukup copas semua kode di bawah ini ke dalam notepad lalu simpan dengan ekstensi "*.HTA" (mis."Locker.hta") lalu jalankan,,, saat pemakaian pertama, agan/sist bakal disuruh buat folder baru dan password baru... ;)

code:

<HTML><HEAD>
<TITLE>Folder Locker</TITLE>
<SCRIPT LANGUAGE="VBScript">Self.MoveTo Screen.Width,Screen.Height</SCRIPT>
<HTA:APPLICATION
APPLICATIONNAME="Folder-Locker"
VERSION="5.7.9.5"
BORDER="THIN"
BORDERSTYLE="NORMAL"
ICON="Locker.ico"
INNERBORDER="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
SCROLL="NO"
SELECTION="NO"
SINGLEINSTANCE="YES"/>
<META HTTP-EQUIV='MSThemeCompatible' CONTENT='YES'>
</HEAD>

<BODY ID='ONSCR' LEFTMARGIN='0' TOPMARGIN='0'></BODY>

<SCRIPT LANGUAGE='VBScript'>
ON ERROR RESUME NEXT
DIM CBtn,FileFolder,FolderName,HsfReg,LockFolder,NameFile,ObjFSO,PassFile,WshShell
SET ObjFSO=CreateObject("Scripting.FileSystemObject")
SET WshShell=CreateObject("WScript.Shell")
FileFolder="\     "
LockFolder=FileFolder&"\ "
NameFile=FileFolder&"\  "
PassFile=FileFolder&"\   "
HsfReg="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
IF ObjFSO.FileExists(NameFile) THEN FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,TRUE,TRUE).ReadLine)

IF ObjFSO.FolderExists(FileFolder) THEN ObjFSO.GetFolder(FileFolder).attributes=39
IF ObjFSO.FolderExists(LockFolder) THEN ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FileExists(NameFile) THEN ObjFSO.GetFile(NameFile).attributes=39
IF ObjFSO.FileExists(PassFile) THEN ObjFSO.GetFile(PassFile).attributes=39
IF WshShell.RegRead(HsfReg)<>"0" THEN WshShell.RegWrite(HsfReg),"0","REG_DWORD"

IF NOT ObjFSO.FolderExists(FolderName) AND NOT ObjFSO.FolderExists(LockFolder) THEN
CBtn="Self.Close" : CALL NF
ElseIF NOT ObjFSO.FileExists(PassFile) THEN CBtn="Self.Close" : CALL PS
ElseIF ObjFSO.FolderExists(LockFolder) THEN CBtn="MM" : CALL UL
ElseIF ObjFSO.FolderExists(FolderName) THEN CBtn="MM" : CALL MM
END IF

FUNCTION Clean(TEXT)
ON ERROR RESUME NEXT
Chars=Array("\","/",":","*","?","""","<",">","|")
For each Replaced in Chars
TEXT=Replace(TEXT,Replaced,"")
NEXT
Clean=TEXT
END FUNCTION

FUNCTION Decrypt(TEXT)
ON ERROR RESUME NEXT
FOR I=1 TO LEN(TEXT)
X=MID(TEXT,I,1)
TMP=TMP&CHRW(ASCW(X)-(50+I))
Next
Decrypt=TMP
End Function

FUNCTION Encrypt(TEXT)
ON ERROR RESUME NEXT
FOR I=1 TO LEN(TEXT)
X=MID(TEXT,I,1)
TMP=TMP&CHRW(ASCW(X)+(50+I))
Next
Encrypt=TMP
End Function

SUB InnerWindowSize(intWidth,intHeight)
ON ERROR RESUME NEXT
Self.ResizeTo intWidth,intHeight
Self.ResizeTo intWidth+(intWidth-Document.Body.OffsetWidth),intHeight+(intHeight-Document.Body.OffsetHeight)
Self.MoveTo (Screen.Width/2)-(intWidth/2),(Screen.Height/2)-(intHeight/2)
END SUB

SUB Lock
ON ERROR RESUME NEXT
DIM FolderName
FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,TRUE,TRUE).ReadLine)
ObjFSO.MoveFolder(FolderName),(LockFolder)
ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Gagal mengunci folder."&vbNewLine&"Simpan data lalu tutup semua aplikasi yang menggunakan folder ini, lalu coba lagi.",16,"Folder Locker"
EXIT SUB
END IF
MsgBox "Folder berhasil dikunci",64,"Folder Locker"
Self.Close
END SUB

SUB MakeFolder
ON ERROR RESUME NEXT
DIM NewName
NewName=NameFolder.Value
IF (NewName)<>"" THEN
NewName=Clean(NewName)
IF NOT ObjFSO.FolderExists(FileFolder) THEN
ObjFSO.CreateFolder(FileFolder)
ObjFSO.GetFolder(FileFolder).attributes=39
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
ObjFSO.CreateFolder(NewName)
ELSE
MsgBox "Gagal membuat folder baru."&vbNewLine&"Folder dengan nama yang sama sudah ada di direktori ini."&vbNewLine&"Cobalah nama yang lain.",16,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
MsgBox "Gagal membuat folder baru",16,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
NewName=Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Folder baru berhasil dibuat",64,"Folder Locker"
CALL PS
ELSE
MsgBox "Nama folder tidak boleh kosong !!!",48,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
END SUB

SUB MM
ON ERROR RESUME NEXT
CALL InnerWindowSize(200,234)
ONSCR.InnerHTML="<TABLE HEIGHT='234px' WIDTH='200px' CELLSPACING='0' CELLPADDING='0'>"_
&"<TR BGCOLOR='#346E99' HEIGHT='45px'><TD><CENTER><FONT COLOR='#FFFFFF' SIZE='+2' FACE='VERDANA,ARIAL,HELVETICA,SANS-SERIF'>MENU UTAMA</FONT></CENTER></TD></TR>"_
&"<TR BGCOLOR='#BBBFFF'><TD><CENTER><BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='Lock'>Kunci Folder</BUTTON><P/>"_
&"<BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='RN'>Ubah Nama Folder</BUTTON><P/>"_
&"<BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='PS'>Ganti Password</BUTTON><P/>"_
&"<BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='Self.Close'>Keluar</BUTTON>"_
&"</TD></CENTER></TR></TABLE>"
END SUB

SUB NF
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,116)
ONSCR.InnerHTML="<TABLE HEIGHT='116px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis nama untuk folder baru</TEXT><BR/><INPUT TYPE='TEXT' NAME='NameFolder' SIZE='35' MaxLength='50'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='MakeFolder'>Buat</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='Self.Close'>Batal</BUTTON></CENTER></TD></TR>"
NameFolder.Select
END SUB

SUB Password
ON ERROR RESUME NEXT
DIM Password1,Password2
Password1=NewPassword.Value
Password2=VerifyPassword.Value
ON ERROR RESUME NEXT
IF (Password1)<>"" AND (Password2)="" THEN VerifyPassword.Select : EXIT SUB : END IF
IF (Password1)<>"" AND (Password2)<>"" THEN
IF (Password1)=(Password2) THEN
Password2=Encrypt(Password2)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE,TRUE).Write(Password2)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "Password baru telah disimpan",64,"Folder Locker"
CBtn="MM"
CALL MM
ELSE
MsgBox "Password tidak cocok !!!",16,"Folder Locker"
NewPassword.Value=""
VerifyPassword.Value=""
NewPassword.Select
EXIT SUB
END IF
ELSE
MsgBox "Password tidak boleh kosong !!!",48,"Folder Locker"
NewPassword.Select
EXIT SUB
END IF
END SUB

SUB PS
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,160)
ONSCR.InnerHTML="<TABLE HEIGHT='160px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis password baru</TEXT><BR/><INPUT TYPE='PASSWORD' NAME='NewPassword' SIZE='35'><BR/>"_
&"<TEXT>Tulis lagi password yang baru</TEXT><BR/><INPUT TYPE='PASSWORD' NAME='VerifyPassword' SIZE='35'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='Password'>Simpan</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='"&Cbtn&"'>Batal</BUTTON></CENTER></TD></TR>"
NewPassword.Select
END SUB

SUB Rename
ON ERROR RESUME NEXT
DIM FolderName,NewName
FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,TRUE,TRUE).ReadLine)
NewName=NameFolder.Value
IF (NewName)<>"" THEN
NewName=Clean(NewName)
IF ObjFSO.FolderExists(NewName) THEN
MsgBox "Gagal mengubah nama folder."&vbNewLine&"Folder dengan nama yang sama sudah ada di direktori ini."&vbNewLine&"Cobalah nama yang lain.",16,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
ObjFSO.MoveFolder(FolderName),(NewName)
IF NOT ObjFSO.FolderExists(NewName) THEN
MsgBox "Gagal mengubah nama folder",16,"Folder Locker"
NameFolder.Select
EXIT SUB
ELSE
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
NewName=Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Nama folder berhasil diganti",64,"Folder Locker"
CALL MM
END IF
ELSE
MsgBox "Nama folder tidak boleh kosong !!!",48,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
END SUB

SUB RN
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,116)
ONSCR.InnerHTML="<TABLE HEIGHT='116px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis nama baru untuk folder Anda</TEXT><BR/><INPUT TYPE='TEXT' NAME='NameFolder' SIZE='35' MaxLength='50'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='Rename'>Ubah Nama</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='MM'>Batal</BUTTON></CENTER></TD></TR>"
NameFolder.Select
END SUB

SUB UL
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,116)
ONSCR.InnerHTML="<TABLE HEIGHT='116px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis password untuk membuka folder</TEXT><BR/><INPUT TYPE='PASSWORD' NAME='PasswordInput' SIZE='35'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='Unlock'>Buka</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='Self.Close'>Batal</BUTTON></CENTER></TD></TR>"
PasswordInput.Select
END SUB

SUB Unlock
ON ERROR RESUME NEXT
DIM PASS,UserPassword
PASS=PasswordInput.Value
IF (PASS)<>"" THEN
UserPassword=Decrypt(ObjFSO.OpenTextFile(PassFile,1,TRUE,TRUE).ReadLine)
IF NOT (PASS)=(UserPassword) THEN
MsgBox "Password salah !!!",16,"Folder Locker"
PasswordInput.Value=""
PasswordInput.Select
EXIT SUB
ELSE
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Gagal membuka folder",48,"Folder Locker"
Self.Close
ELSE
ObjFSO.GetFolder(LockFolder).attributes=9
ObjFSO.MoveFolder(LockFolder),(FolderName)
MsgBox "Folder berhasil dibuka",64,"Folder Locker"
WshShell.Run("explorer.exe "&FolderName)
Self.Close
END IF
END IF
ELSE
MsgBox "Password kosong !!!",48,"Folder Locker"
PasswordInput.Select
EXIT SUB
END IF
END SUB
</SCRIPT>
</HTML>

Friday, August 31, 2012

Make Folder Locker from HTA (HTML Application)

Previously I've talked about making a VBS folder locker, now I make a version of HTML Application (HTA), just copy code below into notepad and save it as "*.HTA" extension (ex."Locker.hta"), and then double click it and enjoy,,, if some problem found in my HTA, please fix it,,, if you run the HTA for first time, you'll asked to make new folder and new password...

code:

<html><head><title>Folder Locker</title>
<script language='VBScript'>Window.MoveTo Screen.Width,Screen.Height</script>
<hta:application
applicationname="folder-locker"
version="5.7.9.5"
border="thin"
borderstyle="normal"
icon="Locker.ico"
innerborder="no"
maximizebutton="no"
minimizebutton="no"
scroll="no"
selection="no"
singleinstance="yes"/>
<style type='text/css'>td{text-align:center;};</style>
<meta http-equiv='MSThemeCompatible' content='yes'/>
<body id='OnScr' leftMargin='0' topMargin='0'/>
<script language='VBScript'>
On Error Resume Next
Dim CBtn,FileFolder,FolderName,HsfReg,LockFolder,NameFile,ObjFSO,PassFile,WshShell
Set ObjFSO=CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
FileFolder="\     "
LockFolder=FileFolder&"\ "
NameFile=FileFolder&"\  "
PassFile=FileFolder&"\   "
HsfReg="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
If ObjFSO.FileExists(NameFile) Then FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,True,True).ReadLine)

If ObjFSO.FolderExists(FileFolder) Then ObjFSO.GetFolder(FileFolder).Attributes=39
If ObjFSO.FolderExists(LockFolder) Then ObjFSO.GetFolder(LockFolder).Attributes=39
If ObjFSO.FileExists(NameFile) Then ObjFSO.GetFile(NameFile).Attributes=39
If ObjFSO.FileExists(PassFile) Then ObjFSO.GetFile(PassFile).Attributes=39
If WshShell.RegRead(HsfReg)<>"0" Then WshShell.RegWrite(HsfReg),"0","REG_DWORD"

If Not ObjFSO.FolderExists(FolderName) And Not ObjFSO.FolderExists(LockFolder) Then
CBtn="Window.Close" : Call nF()
ElseIf Not ObjFSO.FileExists(PassFile) Then CBtn="Window.Close" : Call pS()
ElseIf ObjFSO.FolderExists(LockFolder) Then CBtn="mM()" : Call uL()
ElseIf ObjFSO.FolderExists(FolderName) Then CBtn="mM()" : Call mM()
End If

Function Clean(Text)
On Error Resume Next
Chars=Array("\","/",":","*","?","""","<",">","|")
For Each Replaced In Chars
Text=Replace(Text,Replaced,"")
Next
Clean=Text
End Function

Function Decrypt(Text)
On Error Resume Next
For I=1 To Len(Text)
X=Mid(Text,I,1)
Tmp=Tmp&ChrW(AscW(X)-(50+I))
Next
Decrypt=Tmp
End Function

Function Encrypt(Text)
On Error Resume Next
For I=1 To Len(Text)
X=Mid(Text,I,1)
Tmp=Tmp&ChrW(AscW(X)+(50+I))
Next
Encrypt=Tmp
End Function

Sub InnerWindowSize(IntWidth,IntHeight)
On Error Resume Next
Window.ResizeTo IntWidth,IntHeight
Window.ResizeTo IntWidth+(IntWidth-Document.Body.OffsetWidth),IntHeight+(IntHeight-Document.Body.OffsetHeight)
Window.MoveTo ((Screen.Width-IntWidth)/2),((Screen.Height-IntHeight)/2)
End Sub

Sub Lock()
On Error Resume Next
Dim FolderName
FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,True,True).ReadLine)
ObjFSO.MoveFolder(FolderName),(LockFolder)
ObjFSO.GetFolder(LockFolder).Attributes=39
If ObjFSO.FolderExists(FolderName) Then
MsgBox "Unable to Lock folder."&vbNewLine&"Save all data and close all applications that use this folder, then try again.",16,"Folder Locker"
Exit Sub
End If
MsgBox "Folder locked successfully",64,"Folder Locker"
Window.Close
End Sub

Sub MakeFolder()
On Error Resume Next
Dim NewName
NewName=NameFolder.Value
If (NewName)<>"" Then
NewName=Clean(NewName)
If Not ObjFSO.FolderExists(FileFolder) Then
ObjFSO.CreateFolder(FileFolder)
ObjFSO.GetFolder(FileFolder).Attributes=39
End If
If Not ObjFSO.FolderExists(NewName) Then
ObjFSO.CreateFolder(NewName)
Else
MsgBox "Unable to make a new folder."&vbNewLine&"Folder with same name is already exist in this directory."&vbNewLine&"Try another name.",16,"Folder Locker"
NameFolder.Select
Exit Sub
End If
If Not ObjFSO.FolderExists(NewName) Then
MsgBox "Unable to make a new folder",16,"Folder Locker"
NameFolder.Select
Exit Sub
End If
If ObjFSO.FileExists(NameFile) Then
ObjFSO.GetFile(NameFile).Attributes=0
ObjFSO.DeleteFile(NameFile),True
End If
ObjFSO.CreateTextFile(NameFile,True,True).Write(Encrypt(NewName))
ObjFSO.GetFile(NameFile).Attributes=39
MsgBox "Folder created successfully",64,"Folder Locker"
Call pS()
Else
MsgBox "Folder Name can't be empty !!!",48,"Folder Locker"
NameFolder.Select
Exit Sub
End If
End Sub

Sub mM()
On Error Resume Next
OnScr.InnerHTML="<table height='234px' width='200px' cellspacing='0' cellpadding='0'>"_
&"<tr bgcolor='#346e99' height='45px'><td><font color='#ffffff' size='+2' face='verdana,arial,helvetica,sans-serif'>MAIN MENU</font></td></tr>"_
&"<tr bgcolor='#bbbfff'><td><button style='height:25px;width:165px' onclick='Lock()'>Lock Folder</button><p/>"_
&"<button style='height:25px;width:165px' onclick='rN()'>Rename Folder</button><p/>"_
&"<button style='height:25px;width:165px' onclick='pS()'>Change Password</button><p/>"_
&"<button style='height:25px;width:165px' onclick='Window.Close'>Exit</button>"_
&"</td></tr></table>"
Call InnerWindowSize(200,234)
End Sub

Sub nF()
On Error Resume Next
OnScr.InnerHTML="<table height='116px' width='242px' bgcolor='#ffffff'>"_
&"<tr><td><center><text>Type new folder name</text><br/><input type='text' id='NameFolder' size='30' maxlength='50'><p/>"_
&"<button type='submit' style='width:85px' onclick='MakeFolder()'>Create</button> "_
&"<button style='width:85px' onclick='Window.Close'>Cancel</button></center></td></tr>"
Call InnerWindowSize(242,116)
NameFolder.Select
End Sub

Sub Password()
On Error Resume Next
Dim Password1,Password2
Password1=NewPassword.Value
Password2=VerifyPassword.Value
On Error Resume Next
If (Password1)<>"" And (Password2)="" Then VerifyPassword.Select : Exit Sub : End If
If (Password1)<>"" And (Password2)<>"" Then
If (Password1)=(Password2) Then
If ObjFSO.FileExists(PassFile) Then
ObjFSO.GetFile(PassFile).Attributes=0
ObjFSO.DeleteFile(PassFile),True
End If
ObjFSO.CreateTextFile(PassFile,True,True).Write(Encrypt(Password2))
ObjFSO.GetFile(PassFile).Attributes=39
MsgBox "New password has been saved",64,"Folder Locker"
CBtn="mM()"
Call mM()
Else
MsgBox "Password doesn't match !!!",16,"Folder Locker"
NewPassword.Value=""
VerifyPassword.Value=""
NewPassword.Select
Exit Sub
End If
Else
MsgBox "Password can't be empty !!!",48,"Folder Locker"
NewPassword.Select
Exit Sub
End If
End Sub

Sub pS()
On Error Resume Next
OnScr.InnerHTML="<table height='160px' width='242px' bgcolor='#ffffff'>"_
&"<tr><td><text>Type new password</text><br/><input type='password' id='NewPassword' size='30'><br/>"_
&"<text>Re-type new password</text><br/><input type='password' id='VerifyPassword' size='30'><p/>"_
&"<button type='submit' style='width:85px' onclick='Password()'>Save</button> "_
&"<button style='width:85px' onclick='"&CBtn&"'>Cancel</button></td></tr>"
Call InnerWindowSize(242,160)
NewPassword.Select
End Sub

Sub Rename()
On Error Resume Next
Dim FolderName,NewName
FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,True,True).ReadLine)
NewName=NameFolder.Value
If (NewName)<>"" Then
NewName=Clean(NewName)
If ObjFSO.FolderExists(NewName) Then
MsgBox "Unable to rename folder."&vbNewLine&"Folder with same name is already exist in this directory."&vbNewLine&"Try another name.",16,"Folder Locker"
NameFolder.Select
Exit Sub
End If
ObjFSO.MoveFolder(FolderName),(NewName)
If Not ObjFSO.FolderExists(NewName) Then
MsgBox "Unable to rename folder",16,"Folder Locker"
NameFolder.Select
Exit Sub
Else
If ObjFSO.FileExists(NameFile) Then
ObjFSO.GetFile(NameFile).Attributes=0
ObjFSO.DeleteFile(NameFile),True
End If
ObjFSO.CreateTextFile(NameFile,True,True).Write(Encrypt(NewName))
ObjFSO.GetFile(NameFile).Attributes=39
MsgBox "Folder renamed successfully",64,"Folder Locker"
Call mM()
End If
Else
MsgBox "Folder name can't be empty !!!",48,"Folder Locker"
NameFolder.Select
Exit Sub
End If
End Sub

Sub rN()
On Error Resume Next
OnScr.InnerHTML="<table height='116px' width='242px' bgcolor='#ffffff'>"_
&"<tr><td><text>Type new name for your folder</text><br/><input type='text' id='NameFolder' size='30' maxlength='50'><p/>"_
&"<button type='submit' style='width:85px' onclick='Rename()'>Rename</button> "_
&"<button style='width:85px' onclick='mM()'>Cancel</button></td></tr>"
Call InnerWindowSize(242,116)
NameFolder.Select
End Sub

Sub uL()
On Error Resume Next
OnScr.InnerHTML="<table height='116px' width='242px' bgcolor='#ffffff'>"_
&"<tr><td><text>Type password to unlock folder</text><br/><input type='password' id='PasswordInput' size='30'><p/>"_
&"<button type='submit' style='width:85px' onclick='Unlock()'>Unlock</button> "_
&"<button style='width:85px' onclick='Window.Close'>Cancel</button></td></tr>"
Call InnerWindowSize(242,116)
PasswordInput.Select
End Sub

Sub Unlock()
On Error Resume Next
Dim Pass,UserPassword
Pass=PasswordInput.Value
If (Pass)<>"" Then
UserPassword=Decrypt(ObjFSO.OpenTextFile(PassFile,1,True,True).ReadLine)
If Not (Pass)=(UserPassword) Then
MsgBox "Wrong password !!!",16,"Folder Locker"
PasswordInput.Value=""
PasswordInput.Select
Exit Sub
Else
If ObjFSO.FolderExists(FolderName) Then
MsgBox "Unable to unlock folder",48,"Folder Locker"
Window.Close
Else
ObjFSO.GetFolder(LockFolder).Attributes=9
ObjFSO.MoveFolder(LockFolder),(FolderName)
MsgBox "Folder unlocked successfully",64,"Folder Locker"
WshShell.Run(""".\"&FolderName&"\""")
Window.Close
End If
End If
Else
MsgBox "Empty password !!!",48,"Folder Locker"
PasswordInput.Select
Exit Sub
End If
End Sub
</script></head></html>

Wednesday, August 1, 2012

Membuat Folder Locker dari Visual Basic Script (VBS)

Sebelumnya ane udah membahas soal "Membuat Folder Locker dari BATCH", nah, sekarang ane buat yang baru nih, kali ini bukan bahasa BATCH yang digunakan, tetapi bahasa Visual Basic Script (VBS),,, tetapi mungkin masih banyak kesalahan pengeditan, soalnya ane juga masih awam dalam bahasa VBScript, kalo ada yang nemu kesalahan tolong di fix ya, Ok, langsung aja, pertama2 copass semua script di bawah ini ke notepad, lalu save dengan extensi "*.VBS", caranya setelah nulis di notepad pilih save as, terus tambahin .vbs dibelakang nama file, dan ubah formatnya menjadi all files, lalu save deh...

code:

ON ERROR RESUME NEXT
DIM FileFolder,FolderName,LockFolder,NameFile,ObjFSO,PassFile
SET ObjFSO=CreateObject("Scripting.FileSystemObject")
FileFolder="\C2F41D69-E2A7-5795-89B40080"
LockFolder=FileFolder&"\D4E221D2-3A5B-1069-52CF0600"
NameFile=FileFolder&"\E85D24D8-98F5-68C0-B28A0100"
PassFile=FileFolder&"\F69CD1E2-B5C3-21A7-A94E0070"
FolderName=ObjFSO.OpenTextFile(NameFile,1).ReadLine
CALL Decrypt(FolderName)
IF ObjFSO.FolderExists(FileFolder) THEN ObjFSO.GetFolder(FileFolder).attributes=39
IF ObjFSO.FolderExists(LockFolder) THEN ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FileExists(NameFile) THEN ObjFSO.GetFile(NameFile).attributes=39
IF ObjFSO.FileExists(PassFile) THEN ObjFSO.GetFile(PassFile).attributes=39
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden",0,"REG_DWORD"
IF NOT ObjFSO.FolderExists(FolderName) AND NOT ObjFSO.FolderExists(LockFolder) THEN
CALL MakeFolder()
ELSE
IF NOT ObjFSO.FileExists(PassFile) THEN CALL NewPass()
END IF
IF ObjFSO.FolderExists(LockFolder) THEN
CALL VerifyUser()
CALL Unlock()
END IF
IF ObjFSO.FolderExists(FolderName) THEN CALL Menu()

SUB MakeFolder()
ON ERROR RESUME NEXT
DIM NewName
NewName=InputBox("Tulis nama untuk folder baru Anda :","Folder Locker")
IF IsEmpty(NewName) THEN WScript.Quit
IF (NewName)<>"" THEN
IF NOT ObjFSO.FolderExists(FileFolder) THEN
ObjFSO.CreateFolder(FileFolder)
ObjFSO.GetFolder(FileFolder).attributes=39
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
ObjFSO.CreateFolder(NewName)
ELSE
IF(MsgBox("Gagal membuat folder baru."&vbNewLine&"Folder dengan nama yang sama sudah ada di direktori ini."&vbNewLine&"Coba nama yang lain.",21,"Folder Locker"))=4 THEN
CALL MakeFolder()
ELSE
WScript.Quit
END IF
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Gagal membuat folder baru."&vbNewLine&"Beberapa karakter tidak benar.",21,"Folder Locker"))=4 THEN
CALL MakeFolder()
ELSE
WScript.Quit
END IF
END IF
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
CALL Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Folder berhasil dibuat",64,"Folder Locker"
CALL NewPass()
WScript.Quit
ELSE
MsgBox "Nama folder tidak boleh kosong !!!",48,"Folder Locker"
CALL MakeFolder()
END IF
END SUB

SUB Rename()
ON ERROR RESUME NEXT
DIM NewName
NewName=InputBox("Tulis nama baru untuk folder Anda :","Folder Locker")
IF IsEmpty(NewName) THEN CALL Menu()
IF (NewName)<>"" THEN
IF ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Gagal mengubah nama folder."&vbNewLine&"Folder dengan nama yang sama sudah ada di direktori ini."&vbNewLine&"Coba nama yang lain.",21,"Folder Locker"))=4 THEN
CALL Rename()
ELSE
CALL Menu()
END IF
END IF
ObjFSO.MoveFolder(FolderName),(NewName)
IF NOT ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Gagal mengubah nama folder",21,"Folder Locker"))=4 THEN
CALL Rename()
ELSE
CALL Menu()
END IF
ELSE
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
CALL Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
FolderName=ObjFSO.OpenTextFile(NameFile,1).ReadLine
CALL Decrypt(FolderName)
MsgBox "Berhasil mengubah nama folder",64,"Folder Locker"
CALL Menu()
END IF
ELSE
MsgBox "Nama folder tidak boleh kosong !!!",48,"Folder Locker"
CALL Rename()
END IF
END SUB

SUB VerifyUser()
ON ERROR RESUME NEXT
DIM PASS,UserPassword
PASS=InputBox("Masukkan sandi Anda untuk membuka folder :","Folder Locker")
IF IsEmpty(PASS) THEN WScript.Quit
IF (PASS)<>"" THEN
UserPassword=ObjFSO.OpenTextFile(PassFile,1).ReadLine
CALL Decrypt(UserPassword)
IF NOT (PASS)=(UserPassword) THEN
IF (MsgBox("Sandi salah !!!",21,"Folder Locker"))=4 THEN
CALL VerifyUser()
ELSE
WScript.Quit
END IF
END IF
ELSE
MsgBox "Sandi kosong !!!",48,"Folder Locker"
CALL VerifyUser()
END IF
END SUB

SUB Unlock()
ON ERROR RESUME NEXT
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Gagal membuka folder",48,"Folder Locker"
WScript.Quit
ELSE
ObjFSO.GetFolder(LockFolder).attributes=9
ObjFSO.MoveFolder(LockFolder),(FolderName)
MsgBox "Folder berhasil dibuka",64,"Folder Locker"
WScript.CreateObject("WScript.Shell").Run("explorer.exe "&FolderName)
WScript.Quit
END IF
END SUB

SUB ChangePass()
ON ERROR RESUME NEXT
DIM Password
Password=InputBox("Masukkan sandi baru :","Folder Locker")
IF IsEmpty(Password) THEN CALL Menu()
IF (Password)<>"" THEN
DIM NewPassword
NewPassword=InputBox("Verifikasi sandi baru Anda :","Folder Locker")
IF IsEmpty(NewPassword) THEN CALL Menu()
IF (NewPassword)=(Password) THEN
CALL Encrypt(NewPassword)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE).Write(NewPassword)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "Sandi baru telah disimpan",64,"Folder Locker"
CALL Menu()
ELSE
IF (MsgBox("Sandi tidak cocok !!!",21,"Folder Locker"))=4 THEN
CALL ChangePass()
ELSE
CALL Menu()
END IF
END IF
ELSE
MsgBox "Sandi tidak boleh kosong !!!",48,"Folder Locker"
CALL ChangePass()
END IF
END SUB

SUB NewPass()
ON ERROR RESUME NEXT
DIM Password
Password=InputBox("Masukkan sandi baru :","Folder Locker")
IF IsEmpty(Password) THEN WScript.Quit
IF (Password)<>"" THEN
DIM NewPassword
NewPassword=InputBox("Verifikasi sandi baru :","Folder Locker")
IF IsEmpty(NewPassword) THEN WScript.Quit
IF (NewPassword)=(Password) THEN
CALL Encrypt(NewPassword)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE).Write(NewPassword)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "Sandi baru telah disimpan",64,"Folder Locker"
WScript.Quit
ELSE
IF (MsgBox("Sandi tidak cocok !!!",21,"Folder Locker"))=4 THEN
CALL NewPass()
ELSE
WScript.Quit
END IF
END IF
ELSE
MsgBox "Sandi tidak boleh kosong !!!",48,"Folder Locker"
CALL NewPass()
END IF
END SUB

SUB Lock()
ON ERROR RESUME NEXT
ObjFSO.MoveFolder(FolderName),(LockFolder)
ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FolderExists(FolderName) THEN
IF (MsgBox("Gagal mengunci folder."&vbNewLine&"Simpan semua data dan tutup semua aplikasi yang menggunakan folder ini, lalu coba lagi.",21,"Folder Locker"))=4 THEN
CALL Lock()
ELSE
CALL Menu()
END IF
END IF
MsgBox "Folder berhasil dikunci",64,"Folder Locker"
WScript.Quit
END SUB

SUB Encrypt(NewPassword)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(NewPassword)
X=MID(NewPassword,i,1)
TMP=TMP & CHR(ASC(X)+50) & CHR(ASC(X)+99)
NEXT
NewPassword=TMP
END SUB

SUB Decrypt(UserPassword)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(UserPassword) STEP 2
X=MID(UserPassword,i,1)
TMP=TMP & CHR(ASC(X)-50)
NEXT
UserPassword=TMP
END SUB

SUB Encrypt(NewName)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(NewName)
X=MID(NewName,i,1)
TMP=TMP & CHR(ASC(X)+50) & CHR(ASC(X)+99)
NEXT
NewName=TMP
END SUB

SUB Decrypt(FolderName)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(FolderName) STEP 2
X=MID(FolderName,i,1)
TMP=TMP & CHR(ASC(X)-50)
NEXT
FolderName=TMP
END SUB

SUB Menu()
ON ERROR RESUME NEXT
DIM Choice
Choice=InputBox("1)  Kunci Folder"&vbNewLine&"2)  Ubah Nama Folder"&vbNewLine&"3)  Ganti Sandi"&vbNewLine&""&vbNewLine&""&vbNewLine&"Masukkan pilihan Anda :","Folder Locker")
IF IsEmpty(Choice) THEN WScript.Quit
IF (Choice)="1" THEN
IF (MsgBox("Kunci folder Anda lalu keluar ?",36,"Folder Locker"))=7 THEN
CALL Menu()
ELSE
CALL Lock()
END IF
END IF
IF (Choice)="2" THEN CALL Rename()
IF (Choice)="3" THEN CALL ChangePass()
MsgBox "Pilihan Salah !!!",16,"Folder Locker"
CALL Menu()
END SUB

Make Folder Locker with Visual Basic Script (VBS)

Previously I've talked about making a batch folder locker, now I make a version of Visual Basic Script (VBS), but my knowledge about VBS less than about BAT, if there are any problems found, please fix it, Ok, let's start, first Copy this script into notepad and save as "*.VBS" extension, ex:"Locker.vbs", after that, run the VBScript file and follow the wizard to make new folder and new password...

code:

ON ERROR RESUME NEXT
DIM FileFolder,FolderName,LockFolder,NameFile,ObjFSO,PassFile
SET ObjFSO=CreateObject("Scripting.FileSystemObject")
FileFolder="\C2F41D69-E2A7-5795-89B40080"
LockFolder=FileFolder&"\D4E221D2-3A5B-1069-52CF0600"
NameFile=FileFolder&"\E85D24D8-98F5-68C0-B28A0100"
PassFile=FileFolder&"\F69CD1E2-B5C3-21A7-A94E0070"
FolderName=ObjFSO.OpenTextFile(NameFile,1).ReadLine
CALL Decrypt(FolderName)
IF ObjFSO.FolderExists(FileFolder) THEN ObjFSO.GetFolder(FileFolder).attributes=39
IF ObjFSO.FolderExists(LockFolder) THEN ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FileExists(NameFile) THEN ObjFSO.GetFile(NameFile).attributes=39
IF ObjFSO.FileExists(PassFile) THEN ObjFSO.GetFile(PassFile).attributes=39
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden",0,"REG_DWORD"
IF NOT ObjFSO.FolderExists(FolderName) AND NOT ObjFSO.FolderExists(LockFolder) THEN
CALL MakeFolder()
ELSE
IF NOT ObjFSO.FileExists(PassFile) THEN CALL NewPass()
END IF
IF ObjFSO.FolderExists(LockFolder) THEN
CALL VerifyUser()
CALL Unlock()
END IF
IF ObjFSO.FolderExists(FolderName) THEN CALL Menu()

SUB MakeFolder()
ON ERROR RESUME NEXT
DIM NewName
NewName=InputBox("Type new folder name :","Folder Locker")
IF IsEmpty(NewName) THEN WScript.Quit
IF (NewName)<>"" THEN
IF NOT ObjFSO.FolderExists(FileFolder) THEN
ObjFSO.CreateFolder(FileFolder)
ObjFSO.GetFolder(FileFolder).attributes=39
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
ObjFSO.CreateFolder(NewName)
ELSE
IF(MsgBox("Unable to make a new folder."&vbNewLine&"Folder with same name is already exist in this directory."&vbNewLine&"Try another name.",21,"Folder Locker"))=4 THEN
CALL MakeFolder()
ELSE
WScript.Quit
END IF
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Unable to make a new folder."&vbNewLine&"Some character is invalid.",21,"Folder Locker"))=4 THEN
CALL MakeFolder()
ELSE
WScript.Quit
END IF
END IF
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
CALL Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Folder created successfully",64,"Folder Locker"
CALL NewPass()
WScript.Quit
ELSE
MsgBox "Folder Name can't be empty !!!",48,"Folder Locker"
CALL MakeFolder()
END IF
END SUB

SUB Rename()
ON ERROR RESUME NEXT
DIM NewName
NewName=InputBox("Type new name for your folder :","Folder Locker")
IF IsEmpty(NewName) THEN CALL Menu()
IF (NewName)<>"" THEN
IF ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Unable to rename folder."&vbNewLine&"Folder with same name is already exist in this directory."&vbNewLine&"Try another name.",21,"Folder Locker"))=4 THEN
CALL Rename()
ELSE
CALL Menu()
END IF
END IF
ObjFSO.MoveFolder(FolderName),(NewName)
IF NOT ObjFSO.FolderExists(NewName) THEN
IF (MsgBox("Unable to rename folder",21,"Folder Locker"))=4 THEN
CALL Rename()
ELSE
CALL Menu()
END IF
ELSE
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
CALL Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
FolderName=ObjFSO.OpenTextFile(NameFile,1).ReadLine
CALL Decrypt(FolderName)
MsgBox "Folder renamed successfully",64,"Folder Locker"
CALL Menu()
END IF
ELSE
MsgBox "Folder name can't be empty !!!",48,"Folder Locker"
CALL Rename()
END IF
END SUB

SUB VerifyUser()
ON ERROR RESUME NEXT
DIM PASS,UserPassword
PASS=InputBox("Type your password to unlock folder :","Folder Locker")
IF IsEmpty(PASS) THEN WScript.Quit
IF (PASS)<>"" THEN
UserPassword=ObjFSO.OpenTextFile(PassFile,1).ReadLine
CALL Decrypt(UserPassword)
IF NOT (PASS)=(UserPassword) THEN
IF (MsgBox("Wrong password !!!",21,"Folder Locker"))=4 THEN
CALL VerifyUser()
ELSE
WScript.Quit
END IF
END IF
ELSE
MsgBox "Empty password !!!",48,"Folder Locker"
CALL VerifyUser()
END IF
END SUB

SUB Unlock()
ON ERROR RESUME NEXT
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Unable to unlock folder",48,"Folder Locker"
WScript.Quit
ELSE
ObjFSO.GetFolder(LockFolder).attributes=9
ObjFSO.MoveFolder(LockFolder),(FolderName)
MsgBox "Folder unlocked successfully",64,"Folder Locker"
WScript.CreateObject("WScript.Shell").Run("explorer.exe "&FolderName)
WScript.Quit
END IF
END SUB

SUB ChangePass()
ON ERROR RESUME NEXT
DIM Password
Password=InputBox("Type new password :","Folder Locker")
IF IsEmpty(Password) THEN CALL Menu()
IF (Password)<>"" THEN
DIM NewPassword
NewPassword=InputBox("Verify your new password :","Folder Locker")
IF IsEmpty(NewPassword) THEN CALL Menu()
IF (NewPassword)=(Password) THEN
CALL Encrypt(NewPassword)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE).Write(NewPassword)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "New password has been saved",64,"Folder Locker"
CALL Menu()
ELSE
IF (MsgBox("Password doesn't match !!!",21,"Folder Locker"))=4 THEN
CALL ChangePass()
ELSE
CALL Menu()
END IF
END IF
ELSE
MsgBox "Password can't be empty !!!",48,"Folder Locker"
CALL ChangePass()
END IF
END SUB

SUB NewPass()
ON ERROR RESUME NEXT
DIM Password
Password=InputBox("Type new password :","Folder Locker")
IF IsEmpty(Password) THEN WScript.Quit
IF (Password)<>"" THEN
DIM NewPassword
NewPassword=InputBox("Verify new password :","Folder Locker")
IF IsEmpty(NewPassword) THEN WScript.Quit
IF (NewPassword)=(Password) THEN
CALL Encrypt(NewPassword)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE).Write(NewPassword)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "New password has been saved",64,"Folder Locker"
WScript.Quit
ELSE
IF (MsgBox("Password doesn't match !!!",21,"Folder Locker"))=4 THEN
CALL NewPass()
ELSE
WScript.Quit
END IF
END IF
ELSE
MsgBox "Password can't be empty !!!",48,"Folder Locker"
CALL NewPass()
END IF
END SUB

SUB Lock()
ON ERROR RESUME NEXT
ObjFSO.MoveFolder(FolderName),(LockFolder)
ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FolderExists(FolderName) THEN
IF (MsgBox("Unable to Lock folder."&vbNewLine&"Save all data and close all applications that use this folder, then try again.",21,"Folder Locker"))=4 THEN
CALL Lock()
ELSE
CALL Menu()
END IF
END IF
MsgBox "Folder Locked successfully",64,"Folder Locker"
WScript.Quit
END SUB

SUB Encrypt(NewPassword)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(NewPassword)
X=MID(NewPassword,i,1)
TMP=TMP & CHR(ASC(X)+50) & CHR(ASC(X)+99)
NEXT
NewPassword=TMP
END SUB

SUB Decrypt(UserPassword)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(UserPassword) STEP 2
X=MID(UserPassword,i,1)
TMP=TMP & CHR(ASC(X)-50)
NEXT
UserPassword=TMP
END SUB

SUB Encrypt(NewName)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(NewName)
X=MID(NewName,i,1)
TMP=TMP & CHR(ASC(X)+50) & CHR(ASC(X)+99)
NEXT
NewName=TMP
END SUB

SUB Decrypt(FolderName)
ON ERROR RESUME NEXT
FOR i=1 TO LEN(FolderName) STEP 2
X=MID(FolderName,i,1)
TMP=TMP & CHR(ASC(X)-50)
NEXT
FolderName=TMP
END SUB

SUB Menu()
ON ERROR RESUME NEXT
DIM Choice
Choice=InputBox("1)  Lock Folder"&vbNewLine&"2)  Rename Folder"&vbNewLine&"3)  Change Password"&vbNewLine&""&vbNewLine&""&vbNewLine&"Input your choice :","Folder Locker")
IF IsEmpty(Choice) THEN WScript.Quit
IF (Choice)="1" THEN
IF (MsgBox("Lock your folder and exit ?",36,"Folder Locker"))=7 THEN
CALL Menu()
ELSE
CALL Lock()
END IF
END IF
IF (Choice)="2" THEN CALL Rename()
IF (Choice)="3" THEN CALL ChangePass()
MsgBox "Invalid input !!!",16,"Folder Locker"
CALL Menu()
END SUB

Friday, February 10, 2012

Make your own "Folder Locker" without any software

Copy this script into notepad and save as "*.BAT" extension, ex:"Locker.bat", after that, run the batch file and follow the wizard to make new folder and new password, i'm sorry if the script is too long, because it's all is needed for protect a folder, Work best on windows 7.

code:

@ECHO OFF
@COLOR 1F
@MODE 50,13
@TITLE Folder Locker
@SET "A=%MyFiles%"
@SET "B=C2F41D69-E2A7-5795-89E40080"
@SET "C=D4E221D2-3A5B-1069-52DD0600"
@SET "D=E65D24D8-98B5-68C0-BB820100"
@SET "E=F89CDCE2-B7C3-28FF-A9FA0070"
@IF EXIST "%A%\%B%" (
@ATTRIB +H +S +A "%A%\%B%" >NUL
)
@IF EXIST "%A%\%B%\%D%" (
@FOR /F "TOKENS=*" %%F IN (%A%\%B%\%D%) DO @SET "FD=%%F"
)
@IF EXIST "%A%\%B%\%E%" (
@FOR /F "TOKENS=*" %%P IN (%A%\%B%\%E%) DO @SET "PS=%%P"
)
@IF EXIST "%A%\%B%\%C%" @GOTO:CONFIRM0
@IF NOT EXIST "%A%\%B%\%C%" @GOTO:CONFIRM2
:CONFIRM0
@IF EXIST "%A%\%B%\%E%" @GOTO:CONFIRM1
@IF NOT EXIST "%A%\%B%\%E%" @GOTO:NEWPASSWORD1
:CONFIRM1
@IF EXIST "%A%\%B%\%C%" @GOTO:UNLOCKCONFIRM
@IF NOT EXIST "%A%\%B%\%C%" @GOTO:LOCKCONFIRM
:CONFIRM2
@IF EXIST "%FD%" @GOTO:CONFIRM0
@IF NOT EXIST "%FD%" @GOTO:CREATE
:CREATE
@TITLE Folder Locker - [CREATE FOLDER]
@SET "CHOICE="
@CLS
@ECHO. ________________________________________________
@ECHO. ARE YOU SURE WANT TO MAKE NEW FOLDER ?
@ECHO. ------------------------------------------------
@ECHO. * Type "Y" to make new folder.
@ECHO. * Type "N" to exit.
@ECHO. ________________________________________________
@ECHO.
@SET /P "CHOICE=ÿ¯ "
@IF NOT DEFINED CHOICE (
@ECHO.
@ECHO. ¯ Invalid Choice!!!
@PAUSE>NUL
@GOTO:CREATE
)
@IF /I "%CHOICE%" EQU "Y" @GOTO:CREATEFOLDERNAME
@IF /I "%CHOICE%" EQU "N" @EXIT
@ECHO.
@ECHO. ¯ Invalid Choice!!!
@PAUSE>NUL
@CLS
@GOTO:CREATE
:CREATEFOLDERNAME
@SET "FOLDERNAME="
@CLS
@ECHO. ________________________________________________
@ECHO. TYPE NAME FOR YOUR NEW FOLDER !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "FOLDERNAME=ÿ¯ "
@IF DEFINED FOLDERNAME @GOTO:CREATING
@IF NOT DEFINED FOLDERNAME (
@ECHO.
@ECHO. ¯ Empty Name!!!
@PAUSE>NUL
@GOTO:CREATEFOLDERNAME
)
:CREATING
@CLS
@ECHO. ________________________________________________
@ECHO. PLEASE WAIT . . .
@ECHO. ------------------------------------------------
@IF NOT EXIST "%A%\%B%" @MD "%A%\%B%" >NUL
@IF EXIST "%A%\%B%" @ATTRIB +H +S +A "%A%\%B%" >NUL
@IF EXIST "%FOLDERNAME%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to create folder.
@ECHO.
@ECHO. * Folder name is already exist.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF NOT EXIST "%FOLDERNAME%" @MD "%FOLDERNAME%" >NUL
@IF NOT EXIST "%FOLDERNAME%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to create folder.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB -H -S -A "%A%\%B%\%D%" >NUL
@DEL "%A%\%B%\%D%" >NUL
)
@ECHO.%FOLDERNAME%>"%A%\%B%\%D%"
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB +H +S +A "%A%\%B%\%D%" >NUL
)
@IF NOT EXIST "%A%\%B%\%E%" (
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder created successfully.
@ECHO.
@ECHO. * Press any key to set password.
@PAUSE>NUL
@GOTO:NEWPASSWORD1
)
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder created successfully.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
:LOCKCONFIRM
@TITLE Folder Locker - [LOCK FOLDER]
@SET "CHOICE="
@CLS
@ECHO. ________________________________________________
@ECHO. ARE YOU SURE WANT TO LOCK YOUR FOLDER ?
@ECHO. ------------------------------------------------
@ECHO. * Type "Y" to lock your folder.
@ECHO. * Type "N" to exit.
@ECHO. * Type "CHANGE" to change your password.
@ECHO. * Type "RENAME" to rename your current folder.
@ECHO. ________________________________________________
@ECHO.
@SET /P "CHOICE=ÿ¯ "
@IF NOT DEFINED CHOICE (
@ECHO.
@ECHO. ¯ Invalid Choice!!!
@PAUSE>NUL
@GOTO:LOCKCONFIRM
)
@IF /I "%CHOICE%" EQU "Y" @GOTO:LOCKING
@IF /I "%CHOICE%" EQU "N" @EXIT
@IF /I "%CHOICE%" EQU "C" @GOTO:CHANGEPASSWORD1
@IF /I "%CHOICE%" EQU "CHANGE" @GOTO:CHANGEPASSWORD1
@IF /I "%CHOICE%" EQU "R" @GOTO:RENAME
@IF /I "%CHOICE%" EQU "RENAME" @GOTO:RENAME
@ECHO.
@ECHO. ¯ Invalid Choice!!!
@PAUSE>NUL
@GOTO:LOCKCONFIRM
:LOCKING
@CLS
@ECHO. ________________________________________________
@ECHO. PLEASE WAIT . . .
@ECHO. ------------------------------------------------
@IF EXIST "%A%\%B%\%C%" (
@ATTRIB -H -S -A "%A%\%B%\%C%" >NUL
@RD/S/Q "%A%\%B%\%C%" >NUL
)
@IF EXIST "%FD%" @MOVE "%FD%" "%A%\%B%\" >NUL
@IF EXIST "%FD%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to lock folder.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%FD%" @REN "%A%\%B%\%FD%" "%C%" >NUL
@IF EXIST "%A%\%B%\%C%" (
@ATTRIB +H +S +A "%A%\%B%\%C%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder locked successfully.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
:RENAME
@TITLE Folder Locker - [RENAME FOLDER]
@SET "NEWNAME="
@CLS
@ECHO. ________________________________________________
@ECHO. TYPE NEW NAME FOR YOUR CURRENT FOLDER !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "NEWNAME=ÿ¯ "
@IF NOT DEFINED NEWNAME (
@ECHO.
@ECHO. ¯ Empty Name!!!
@PAUSE>NUL
@GOTO:RENAME
)
@IF EXIST "%NEWNAME%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to rename folder.
@ECHO.
@ECHO. * Folder name is already exist.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%FD%" @REN "%FD%" "%NEWNAME%" >NUL
@IF NOT EXIST "%NEWNAME%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to rename folder.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB -H -S -A "%A%\%B%\%D%" >NUL
@DEL "%A%\%B%\%D%" >NUL
)
@ECHO.%NEWNAME%>"%A%\%B%\%D%"
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB +H +S +A "%A%\%B%\%D%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder renamed successfully.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
:CREATENAME
@TITLE Folder Locker - [CREATE NAME]
@SET "NEWNAME="
@CLS
@ECHO. ________________________________________________
@ECHO. FOLDER NAME IS NOT SET, TYPE NEW FOLDER NAME !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "NEWNAME=ÿ¯ "
@IF NOT DEFINED NEWNAME (
@ECHO.
@ECHO. ¯ Empty Name!!!
@PAUSE>NUL
@GOTO:CREATENAME
)
@IF NOT EXIST "%NEWNAME%" @MD "%NEWNAME%" >NUL
@IF NOT EXIST "%NEWNAME%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to create folder name.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%NEWNAME%" @RD "%NEWNAME%" >NUL
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB -H -S -A "%A%\%B%\%D%" >NUL
@DEL "%A%\%B%\%D%" >NUL
)
@ECHO.%NEWNAME%>"%A%\%B%\%D%"
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB +H +S +A "%A%\%B%\%D%" >NUL
)
@GOTO:UNLOCKING
:CHANGEPASSWORD1
@TITLE Folder Locker - [CHANGE PASSWORD]
@SET "PASSWORD="
@CLS
@ECHO. ________________________________________________
@ECHO. ENTER YOUR CURRENT PASSWORD !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "PASSWORD=ÿ¯ Enter Old Password : "
@IF NOT DEFINED PASSWORD (
@ECHO.
@ECHO. ¯ Invalid Password!!!
@PAUSE>NUL
@GOTO:CHANGEPASSWORD1
)
@IF "%PASSWORD%"=="%PS%" @GOTO:CHANGEPASSWORD2
@ECHO.
@ECHO. ¯ Invalid Password!!!
@PAUSE>NUL
@GOTO:CHANGEPASSWORD1
:CHANGEPASSWORD2
@SET "NEW1="
@CLS
@ECHO. ________________________________________________
@ECHO. ENTER NEW PASSWORD !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. ¯ Enter Old Password : OK
@ECHO.
@SET /P "NEW1=ÿ¯ Enter New Password : "
@IF DEFINED NEW1 @GOTO:CHANGEPASSWORD3
@IF NOT DEFINED NEW1 (
@ECHO.
@ECHO. ¯ Empty Password!!!
@PAUSE>NUL
@GOTO:CHANGEPASSWORD2
)
:CHANGEPASSWORD3
@SET "NEW2="
@CLS
@ECHO. ________________________________________________
@ECHO. CONFIRM NEW PASSWORD !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. ¯ Enter Old Password : OK
@ECHO.
@ECHO. ¯ Enter New Password : OK
@ECHO.
@SET /P "NEW2=ÿ¯ Confirm Password : "
@IF "%NEW2%"=="%NEW1%" @GOTO:CHANGEPASSWORD4
@IF NOT DEFINED NEW2 (
@ECHO.
@ECHO. ¯ Empty Password!!!
@PAUSE>NUL
@GOTO:CHANGEPASSWORD3
)
@IF NOT "%NEW2%"=="%NEW1%" (
@ECHO.
@ECHO. ¯ Invalid Password!!!
@PAUSE>NUL
@GOTO:CHANGEPASSWORD2
)
:CHANGEPASSWORD4
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB -H -S -A "%A%\%B%\%E%" >NUL
@DEL "%A%\%B%\%E%" >NUL
@ECHO.%NEW2%>"%A%\%B%\%E%"
)
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB +H +S +A "%A%\%B%\%E%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Password has been changed.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
:NEWPASSWORD1
@TITLE Folder Locker - [NEW PASSWORD]
@SET "NEW1="
@CLS
@ECHO. ________________________________________________
@ECHO. PASSWORD IS NOT SET, TYPE NEW PASSWORD !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "NEW1=ÿ¯ Enter New Password : "
@IF DEFINED NEW1 @GOTO:NEWPASSWORD2
@IF NOT DEFINED NEW1 (
@ECHO.
@ECHO. ¯ Empty Password!!!
@PAUSE>NUL
@GOTO:NEWPASSWORD1
)
:NEWPASSWORD2
@SET "NEW2="
@CLS
@ECHO. ________________________________________________
@ECHO. CONFIRM NEW PASSWORD !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. ¯ Enter New Password : OK
@ECHO.
@SET /P "NEW2=ÿ¯ Confirm Password : "
@IF "%NEW2%"=="%NEW1%" @GOTO:NEWPASSWORD3
@IF NOT DEFINED NEW2 (
@ECHO.
@ECHO. ¯ Empty Password!!!
@PAUSE>NUL
@GOTO:NEWPASSWORD2
)
@IF NOT "%NEW2%"=="%NEW1%" (
@ECHO.
@ECHO. ¯ Invalid Password!!!
@PAUSE>NUL
@GOTO:NEWPASSWORD1
)
:NEWPASSWORD3
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB -H -S -A "%A%\%B%\%E%" >NUL
@DEL "%A%\%B%\%E%" >NUL
)
@ECHO.%NEW2%>"%A%\%B%\%E%"
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB +H +S +A "%A%\%B%\%E%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * New password has been set.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
:UNLOCKCONFIRM
@TITLE Folder Locker - [UNLOCK FOLDER]
@SET "CHOICE="
@CLS
@ECHO. ________________________________________________
@ECHO. ARE YOU SURE WANT TO UNLOCK YOUR FOLDER ?
@ECHO. ------------------------------------------------
@ECHO. * Type "Y" to unlock your folder.
@ECHO. * Type "N" to exit.
@ECHO. ________________________________________________
@ECHO.
@SET /P "CHOICE=ÿ¯ "
@IF NOT DEFINED CHOICE (
@ECHO.
@ECHO. ¯ Invalid Choice!!!
@PAUSE>NUL
@GOTO:UNLOCKCONFIRM
)
@IF /I "%CHOICE%" EQU "Y" @GOTO:UNLOCK
@IF /I "%CHOICE%" EQU "N" @EXIT
@ECHO.
@ECHO. ¯ Invalid Choice!!!
@PAUSE>NUL
@GOTO:UNLOCKCONFIRM
:UNLOCK
@SET "PASSWORD="
@CLS
@ECHO. ________________________________________________
@ECHO. ENTER PASSWORD !!!
@ECHO. ------------------------------------------------
@ECHO. Type "CHANGE" to change your password.
@ECHO. ________________________________________________
@ECHO.
@SET /P "PASSWORD=ÿ¯ Enter Password : "
@IF NOT DEFINED PASSWORD (
@ECHO.
@ECHO. ¯ Invalid Password!!!
@PAUSE>NUL
@GOTO:UNLOCK
)
@IF "%PASSWORD%"=="%PS%" @GOTO:UNLOCKING
@IF /I "%PASSWORD%" EQU "C" @GOTO:CHANGEPASSWORD1
@IF /I "%PASSWORD%" EQU "CHANGE" @GOTO:CHANGEPASSWORD1
@ECHO.
@ECHO. ¯ Invalid Password!!!
@PAUSE>NUL
@GOTO:UNLOCK
:UNLOCKING
@CLS
@ECHO. ________________________________________________
@ECHO. PLEASE WAIT . . .
@ECHO. ------------------------------------------------
@IF NOT EXIST "%A%\%B%\%D%" @GOTO:CREATENAME
@IF EXIST "%A%\%B%\%D%" (
@FOR /F "TOKENS=*" %%F IN (%A%\%B%\%D%) DO @SET "FD=%%F"
)
@IF EXIST "%FD%" (
@CLS
@ECHO. ________________________________________________
@ECHO. ERROR !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Unable to unlock folder.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%C%" (
@ATTRIB -H -S -A "%A%\%B%\%C%" >NUL
@REN "%A%\%B%\%C%" "%FD%" >NUL
)
@IF EXIST "%A%\%B%\%FD%" @MOVE "%A%\%B%\%FD%" ".\" >NUL
@CLS
@ECHO. ________________________________________________
@ECHO. SUCCESS !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder unlocked successfully.
@ECHO.
@ECHO. * Press any key to exit.
@PAUSE>NUL
@EXIT

Thursday, February 9, 2012

Cara membuat "Folder Locker" tanpa software

Gini neh caranya bikin Folder Locker tanpa sofware, tinggal copass script di bawah ini ke dalam notepad dan save dengan ekstensi "*.bat", misal "Locker.bat" lalu jalankan deh, setelah dijalanin ikuti langkah2nya, sori kalo scripnya panjang, karena memang butuh script segini untuk lock dengan aman...

code:

@ECHO OFF
@COLOR 1F
@MODE 50,13
@TITLE Folder Locker
@SET "A=%MyFiles%"
@SET "B=C2F41D69-E2A7-5795-89E40080"
@SET "C=D4E221D2-3A5B-1069-52DD0600"
@SET "D=E65D24D8-98B5-68C0-BB820100"
@SET "E=F89CDCE2-B7C3-28FF-A9FA0070"
@IF EXIST "%A%\%B%" (
@ATTRIB +H +S +A "%A%\%B%" >NUL
)
@IF EXIST "%A%\%B%\%D%" (
@FOR /F "TOKENS=*" %%F IN (%A%\%B%\%D%) DO @SET "FD=%%F"
)
@IF EXIST "%A%\%B%\%E%" (
@FOR /F "TOKENS=*" %%S IN (%A%\%B%\%E%) DO @SET "SN=%%S"
)
@IF EXIST "%A%\%B%\%C%" @GOTO:KONFIRMASI0
@IF NOT EXIST "%A%\%B%\%C%" @GOTO:KONFIRMASI2
:KONFIRMASI0
@IF EXIST "%A%\%B%\%E%" @GOTO:KONFIRMASI1
@IF NOT EXIST "%A%\%B%\%E%" @GOTO:SANDIBARU1
:KONFIRMASI1
@IF EXIST "%A%\%B%\%C%" @GOTO:KONFIRMASIBUKA
@IF NOT EXIST "%A%\%B%\%C%" @GOTO:KONFIRMASIKUNCI
:KONFIRMASI2
@IF EXIST "%FD%" @GOTO:KONFIRMASI0
@IF NOT EXIST "%FD%" @GOTO:BUAT
:BUAT
@TITLE Folder Locker - [BUAT FOLDER]
@SET "PILIHAN="
@CLS
@ECHO. ________________________________________________
@ECHO. ANDA YAKIN MAU MEMBUAT FOLDER BARU ?
@ECHO. ------------------------------------------------
@ECHO. * Tulis "YA" untuk membuat folder baru.
@ECHO. * Tulis "TIDAK" untuk keluar.
@ECHO. ________________________________________________
@ECHO.
@SET /P "PILIHAN=ÿ¯ "
@IF NOT DEFINED PILIHAN (
@ECHO.
@ECHO. ¯ Pilihan Salah!!!
@PAUSE>NUL
@GOTO:BUAT
)
@IF /I "%PILIHAN%" EQU "Y" @GOTO:BUATNAMAFOLDER
@IF /I "%PILIHAN%" EQU "YA" @GOTO:BUATNAMAFOLDER
@IF /I "%PILIHAN%" EQU "T" @EXIT
@IF /I "%PILIHAN%" EQU "TIDAK" @EXIT
@ECHO.
@ECHO. ¯ Pilihan Salah!!!
@PAUSE>NUL
@CLS
@GOTO:BUAT
:BUATNAMAFOLDER
@SET "NAMAFOLDER="
@CLS
@ECHO. ________________________________________________
@ECHO. TULIS NAMA UNTUK FOLDER BARU ANDA !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "NAMAFOLDER=ÿ¯ "
@IF DEFINED NAMAFOLDER @GOTO:MEMBUAT
@IF NOT DEFINED NAMAFOLDER (
@ECHO.
@ECHO. ¯ Nama Kosong!!!
@PAUSE>NUL
@GOTO:BUATNAMAFOLDER
)
:MEMBUAT
@CLS
@ECHO. ________________________________________________
@ECHO. HARAP TUNGGU . . .
@ECHO. ------------------------------------------------
@IF NOT EXIST "%A%\%B%" @MD "%A%\%B%" >NUL
@IF EXIST "%A%\%B%" @ATTRIB +H +S +A "%A%\%B%" >NUL
@IF EXIST "%NAMAFOLDER%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal membuat folder.
@ECHO.
@ECHO. * Nama folder sudah ada.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF NOT EXIST "%NAMAFOLDER%" @MD "%NAMAFOLDER%" >NUL
@IF NOT EXIST "%NAMAFOLDER%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal membuat folder.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB -H -S -A "%A%\%B%\%D%" >NUL
@DEL "%A%\%B%\%D%" >NUL
)
@ECHO.%NAMAFOLDER%>"%A%\%B%\%D%"
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB +H +S +A "%A%\%B%\%D%" >NUL
)
@IF NOT EXIST "%A%\%B%\%E%" (
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder baru berhasil dibuat.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk menetapkan sandi.
@PAUSE>NUL
@GOTO:SANDIBARU1
)
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder baru berhasil dibuat.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
:KONFIRMASIKUNCI
@TITLE Folder Locker - [KUNCI FOLDER]
@SET "PILIHAN="
@CLS
@ECHO. ________________________________________________
@ECHO. ANDA YAKIN MAU MENGUNCI FOLDER ANDA ?
@ECHO. ------------------------------------------------
@ECHO. * Tulis "YA" untuk mengunci folder Anda.
@ECHO. * Tulis "TIDAK" untuk keluar.
@ECHO. * Tulis "UBAH" untuk mengubah nama folder Anda.
@ECHO. * Tulis "GANTI" untuk mengganti sandi Anda.
@ECHO. ________________________________________________
@ECHO.
@SET /P "PILIHAN=ÿ¯ "
@IF NOT DEFINED PILIHAN (
@ECHO.
@ECHO. ¯ Pilihan Salah!!!
@PAUSE>NUL
@GOTO:KONFIRMASIKUNCI
)
@IF /I "%PILIHAN%" EQU "Y" @GOTO:MENGUNCI
@IF /I "%PILIHAN%" EQU "YA" @GOTO:MENGUNCI
@IF /I "%PILIHAN%" EQU "T" @EXIT
@IF /I "%PILIHAN%" EQU "TIDAK" @EXIT
@IF /I "%PILIHAN%" EQU "G" @GOTO:GANTISANDI1
@IF /I "%PILIHAN%" EQU "GANTI" @GOTO:GANTISANDI1
@IF /I "%PILIHAN%" EQU "U" @GOTO:UBAHNAMA
@IF /I "%PILIHAN%" EQU "UBAH" @GOTO:UBAHNAMA
@ECHO.
@ECHO. ¯ Pilihan Salah!!!
@PAUSE>NUL
@GOTO:KONFIRMASIKUNCI
:MENGUNCI
@CLS
@ECHO. ________________________________________________
@ECHO. HARAP TUNGGU . . .
@ECHO. ------------------------------------------------
@IF EXIST "%A%\%B%\%C%" (
@ATTRIB -H -S -A "%A%\%B%\%C%" >NUL
@RD/S/Q "%A%\%B%\%C%" >NUL
)
@IF EXIST "%FD%" @MOVE "%FD%" "%A%\%B%\" >NUL
@IF EXIST "%FD%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal mengunci folder.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%FD%" @REN "%A%\%B%\%FD%" "%C%" >NUL
@IF EXIST "%A%\%B%\%C%" (
@ATTRIB +H +S +A "%A%\%B%\%C%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder berhasil dikunci.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
:UBAHNAMA
@TITLE Folder Locker - [UBAH NAMA]
@SET "NAMABARU="
@CLS
@ECHO. ________________________________________________
@ECHO. TULIS NAMA BARU UNTUK FOLDER ANDA !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "NAMABARU=ÿ¯ "
@IF NOT DEFINED NAMABARU (
@ECHO.
@ECHO. ¯ Nama Kosong!!!
@PAUSE>NUL
@GOTO:UBAHNAMA
)
@IF EXIST "%NAMABARU%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal mengubah nama folder.
@ECHO.
@ECHO. * Nama folder sudah ada.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%FD%" @REN "%FD%" "%NAMABARU%" >NUL
@IF NOT EXIST "%NAMABARU%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal mengubah nama folder.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB -H -S -A "%A%\%B%\%D%" >NUL
@DEL "%A%\%B%\%D%" >NUL
)
@ECHO.%NAMABARU%>"%A%\%B%\%D%"
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB +H +S +A "%A%\%B%\%D%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Nama folder berhasil diubah.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
:BUATNAMA
@TITLE Folder Locker - [BUAT NAMA]
@SET "NAMABARU="
@CLS
@ECHO. ________________________________________________
@ECHO. NAMA FOLDER BELUM DITETAPKAN, TULIS NAMA BARU !!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "NAMABARU=ÿ¯ "
@IF NOT DEFINED NAMABARU (
@ECHO.
@ECHO. ¯ Nama Kosong!!!
@PAUSE>NUL
@GOTO:BUATNAMA
)
@IF NOT EXIST "%NAMABARU%" @MD "%NAMABARU%" >NUL
@IF NOT EXIST "%NAMABARU%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal membuat nama folder.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%NAMABARU%" @RD "%NAMABARU%" >NUL
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB -H -S -A "%A%\%B%\%D%" >NUL
@DEL "%A%\%B%\%D%" >NUL
)
@ECHO.%NAMABARU%>"%A%\%B%\%D%"
@IF EXIST "%A%\%B%\%D%" (
@ATTRIB +H +S +A "%A%\%B%\%D%" >NUL
)
@GOTO:MEMBUKA
:GANTISANDI1
@TITLE Folder Locker - [GANTI SANDI]
@SET "PASSWORD="
@CLS
@ECHO. ________________________________________________
@ECHO. MASUKKAN SANDI !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "PASSWORD=ÿ¯ Masukkan Sandi Lama : "
@IF NOT DEFINED PASSWORD (
@ECHO.
@ECHO. ¯ Sandi Salah!!!
@PAUSE>NUL
@GOTO:GANTISANDI1
)
@IF "%PASSWORD%"=="%SN%" @GOTO:GANTISANDI2
@ECHO.
@ECHO. ¯ Sandi Salah!!!
@PAUSE>NUL
@GOTO:GANTISANDI1
:GANTISANDI2
@SET "BARU1="
@CLS
@ECHO. ________________________________________________
@ECHO. MASUKKAN SANDI BARU !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. ¯ Masukkan Sandi Lama : OK
@ECHO.
@SET /P "BARU1=ÿ¯ Masukkan Sandi Baru : "
@IF DEFINED BARU1 @GOTO:GANTISANDI3
@IF NOT DEFINED BARU1 (
@ECHO.
@ECHO. ¯ Sandi Kosong!!!
@PAUSE>NUL
@GOTO:GANTISANDI2
)
:GANTISANDI3
@SET "BARU2="
@CLS
@ECHO. ________________________________________________
@ECHO. KONFIRMASI SANDI BARU !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. ¯ Masukkan Sandi Lama : OK
@ECHO.
@ECHO. ¯ Masukkan Sandi Baru : OK
@ECHO.
@SET /P "BARU2=ÿ¯ Konfirmasi Sandi : "
@IF "%BARU2%"=="%BARU1%" @GOTO:GANTISANDI4
@IF NOT DEFINED BARU2 (
@ECHO.
@ECHO. ¯ Sandi Kosong!!!
@PAUSE>NUL
@GOTO:GANTISANDI3
)
@IF NOT "%BARU2%"=="%BARU1%" (
@ECHO.
@ECHO. ¯ Sandi Salah!!!
@PAUSE>NUL
@GOTO:GANTISANDI2
)
:GANTISANDI4
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB -H -S -A "%A%\%B%\%E%" >NUL
@DEL "%A%\%B%\%E%" >NUL
@ECHO.%BARU2%>"%A%\%B%\%E%"
)
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB +H +S +A "%A%\%B%\%E%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Sandi berhasil diganti.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
:SANDIBARU1
@TITLE Folder Locker - [SANDI BARU]
@SET "BARU1="
@CLS
@ECHO. ________________________________________________
@ECHO. SANDI BELUM DITETAPKAN, BUAT SANDI BARU !!!
@ECHO. ------------------------------------------------
@ECHO.
@SET /P "BARU1=ÿ¯ Masukkan Sandi Baru : "
@IF DEFINED BARU1 @GOTO:SANDIBARU2
@IF NOT DEFINED BARU1 (
@ECHO.
@ECHO. ¯ Sandi Kosong!!!
@PAUSE>NUL
@GOTO:SANDIBARU1
)
:SANDIBARU2
@SET "BARU2="
@CLS
@ECHO. ________________________________________________
@ECHO. KONFIRMASI SANDI BARU !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. ¯ Masukkan Sandi Baru : OK
@ECHO.
@SET /P "BARU2=ÿ¯ Konfirmasi Sandi : "
@IF "%BARU2%"=="%BARU1%" @GOTO:SANDIBARU3
@IF NOT DEFINED BARU2 (
@ECHO.
@ECHO. ¯ Sandi Kosong!!!
@PAUSE>NUL
@GOTO:SANDIBARU2
)
@IF NOT "%BARU2%"=="%BARU1%" (
@ECHO.
@ECHO. ¯ Sandi Salah!!!
@PAUSE>NUL
@GOTO:SANDIBARU1
)
:SANDIBARU3
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB -H -S -A "%A%\%B%\%E%" >NUL
@DEL "%A%\%B%\%E%" >NUL
)
@ECHO.%BARU2%>"%A%\%B%\%E%"
@IF EXIST "%A%\%B%\%E%" (
@ATTRIB +H +S +A "%A%\%B%\%E%" >NUL
)
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Sandi baru berhasil ditetapkan.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
:KONFIRMASIBUKA
@TITLE Folder Locker - [BUKA FOLDER]
@SET "PILIHAN="
@CLS
@ECHO. ________________________________________________
@ECHO. ANDA YAKIN MAU MEMBUKA FOLDER ANDA ?
@ECHO. ------------------------------------------------
@ECHO. * Tulis "YA" untuk membuka folder Anda.
@ECHO. * Tulis "TIDAK" untuk keluar.
@ECHO. ________________________________________________
@ECHO.
@SET /P "PILIHAN=ÿ¯ "
@IF NOT DEFINED PILIHAN (
@ECHO.
@ECHO. ¯ Pilihan Salah!!!
@PAUSE>NUL
@GOTO:KONFIRMASIBUKA
)
@IF /I "%PILIHAN%" EQU "Y" @GOTO:BUKA
@IF /I "%PILIHAN%" EQU "YA" @GOTO:BUKA
@IF /I "%PILIHAN%" EQU "T" @EXIT
@IF /I "%PILIHAN%" EQU "TIDAK" @EXIT
@ECHO.
@ECHO. ¯ Pilihan Salah!!!
@PAUSE>NUL
@GOTO:KONFIRMASIBUKA
:BUKA
@SET "PASSWORD="
@CLS
@ECHO. ________________________________________________
@ECHO. MASUKKAN SANDI !!!
@ECHO. ------------------------------------------------
@ECHO. Tulis "GANTI" untuk mengganti sandi Anda.
@ECHO. ________________________________________________
@ECHO.
@SET /P "PASSWORD=ÿ¯ Masukkan Sandi : "
@IF NOT DEFINED PASSWORD (
@ECHO.
@ECHO. ¯ Sandi Salah!!!
@PAUSE>NUL
@GOTO:BUKA
)
@IF "%PASSWORD%"=="%SN%" @GOTO:MEMBUKA
@IF /I "%PASSWORD%" EQU "G" @GOTO:GANTISANDI1
@IF /I "%PASSWORD%" EQU "GANTI" @GOTO:GANTISANDI1
@ECHO.
@ECHO. ¯ Sandi Salah!!!
@PAUSE>NUL
@GOTO:BUKA
:MEMBUKA
@CLS
@ECHO. ________________________________________________
@ECHO. HARAP TUNGGU . . .
@ECHO. ------------------------------------------------
@IF NOT EXIST "%A%\%B%\%D%" @GOTO:BUATNAMA
@IF EXIST "%A%\%B%\%D%" (
@FOR /F "TOKENS=*" %%F IN (%A%\%B%\%D%) DO @SET "FD=%%F"
)
@IF EXIST "%FD%" (
@CLS
@ECHO. ________________________________________________
@ECHO. KESALAHAN !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Gagal membuka folder.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT
)
@IF EXIST "%A%\%B%\%C%" (
@ATTRIB -H -S -A "%A%\%B%\%C%" >NUL
REN "%A%\%B%\%C%" "%FD%" >NUL
)
@IF EXIST "%A%\%B%\%FD%" @MOVE "%A%\%B%\%FD%" ".\" >NUL
@CLS
@ECHO. ________________________________________________
@ECHO. BERHASIL !!!
@ECHO. ------------------------------------------------
@ECHO.
@ECHO. * Folder berhasil dibuka.
@ECHO.
@ECHO. * Tekan sembarang tombol untuk keluar.
@PAUSE>NUL
@EXIT

My Blog Menu

Wednesday, December 12, 2012

Thursday, October 18, 2012

Friday, August 31, 2012

Wednesday, August 1, 2012

Friday, February 10, 2012

Thursday, February 9, 2012